Know Your Baseball - The Greatest Player Resource/Know Your Baseball - Greatest Player.iso/Baseball/Director/SHARED.CST/00007_Script_control scripts for SSQ movies

Text File | 1998-09-21 | 9KB | 348 lines

global gClicked,¼
 gControls,gBt,gPlayerFlag,sndFlag1,gAVI,CrdFlag1,gTx,gStopFlag,gLast,gMode,gNumDetails,gPos

--- script for players in SSQ movies  marker 1

on Player
  puppetSound 0
  set the blend of sprite (gClicked - 11) to 100
  set gLast =gPlayerFlag
  set gPlayerFlag = gClicked
  if the framelabel ="1Intro" then
    set gPlayerFlag = gClicked
    --  gets the right card
    showcard
    -- sound handling
    mSoundPlayBack(gControls),gPlayerFlag,3,1
    updatestage
    if crdflag1> 0 then
      set crdflag1 = 0
    end if
  else
    set crdflag1 = 0
    mResetcard(gControls) gLast
    set the blend of sprite 8 = 0
    showcard1
    set gStopFlag = 0
    loadvideo gplayerflag
    set gAVI = 2
    updatestage
  end if
end




on showcard
  set sndFlag1 = 1
  if gPlayerFlag < 23 then exit
  mCards(gControls), gPlayerFlag
  set x = the result
  --  put the result & "  Card"
  set y = the number of words in x
  if y > 1 then
    set gTX = 1
    set gBt = []
    repeat with a = 1 to y
      setat gBt, a, word a of x
    end repeat
    set the blend of sprite 11 to 100
    mMultiOn(gControls)
  else
    set the blend of sprite 11 to 0
    mMultiOff (gControls)
    set gTX = 1
    set gBt = []
  end if
  set w = word gTx of x
  set the castNum of sprite 10 to (the number of cast w)
  set the blend of sprite 10 to 100
  updatestage
end

-- sets bitmapped  infot text for 1video marker called from screendown
on showcard1
  set gBt = []
  set sndFlag1 = 1
  if voidp(gplayerflag) then set gplayerFlag = 23
  if gPlayerFlag < 23 then exit
  VideoDetailControls
  mCards(gControls), gPlayerFlag
  -- put the result
  set x = the result
  set y = the number of words in x
  set w = word 1 of x

  if y > 1 then
    repeat with a = 1 to y
      setat gBt, a, word a of x
    end repeat
    set the blend of sprite 11 to 100
    mMultiOn(gControls)
  else
    set gpos = 1
    set the blend of sprite 11 to 0
    mMultiOff (gControls)
    set gBt = []
  end if
  set the castNum of sprite 10 to (the number of cast w)
  set the blend of sprite 10 to 100
  updatestage

end

-- script for video screen that controls the detail texts and detail videos for the video screen videos

on VideoDetailControls
  MgetPlayerDetails(gControls) gPlayerFlag
  set gNumDetails = the result
  if gNumDetails >1 then
    set the type of sprite 48 = 1
    set the castnum of sprite 48 = the number of cast "VCard"
    set the locH of sprite 48 = 619
    set the locv of sprite 48 =  37
    set the ink of sprite 48 = 32
    set the blend of sprite 48 = 100
    MsetCommand(gcontrols),48,"CardButton1"
    updatestage
  else
    set the castnum of sprite 48 = 0
    set the type of sprite 48 = 0
    MsetCommand(gcontrols),48,Empty
    updatestage
  end if
end

-- sets the txt and audio details for the video screen

on SetOtherDetails
  set sndflag1 = gPos
  set gtX = gPos
  mSetSecondaryCards(gcontrols), gplayerflag,gTx  -- gPlayer Flag is just a placeholder is not used
end

on CardButton
  set b = count(gBt)
  set c= (the name of cast (the castNum of sprite 10))
  set Pos = getpos(gBt,c)
  -- video marker branch
  if the framelabel = "1video" then
    if Pos < b  then
      set the castNum of sprite 10 to (the number of cast (getat(gBT,(Pos+1))))
      updatestage
      exit
    else
      set the castNum of sprite 10 to (the number of cast (getat(gBT,1)))
      updatestage
      exit
    end if
  end if

  -- branch for first marker in SSQ
  if Pos < b then
    set the castNum of sprite 10 to (the number of cast (getat(gBT,(Pos+1))))
    set sndFlag1 = (Pos+1)
    mSoundPlayBack(gControls),gPlayerFlag,3,sndFlag1
    set CrdFlag1 = (sndFlag1)-1
    updatestage
  else
    set the castNum of sprite 10 to (the number of cast (getat(gBT,1)))
    mSoundPlayBack(gControls),gPlayerFlag,3,1
    set sndFlag1 =1
    set CrdFlag1 = 1
    updatestage
  end if

  -- set flag for right list info to be loaded for secondary cards BITtxt in 1video flag

  set c= (the name of cast (the castNum of sprite 10))
  set gTx = getpos(gBt,c)
end

-- cardbutton1 is for an added function which allows controls of detail media from the video screen

on CardButton1
  puppetsound 0
  set the movierate of sprite 3 = 0
  set the blend of sprite 8 = 0
  set b = gNumDetails
  set c= (the name of cast (the castNum of sprite 3))

  -- get the video clips in the list at gplagerflag

  MgetPossibleVideos(gcontrols) gplayerFlag
  set Vid  = the result
  set gPos = gPos+1

  if gPos <= b  then
    set theOne = getat(vid,gPos)
    mDetailvideo(gControls) theOne
  else
    set gPos = 1
    set theOne = getat(vid,1)
    mDetailvideo(gControls) theOne
  end if
  SetOtherDetails
  showdetails
  updatestage
end

on ShowDetails
  mCards(gControls), gPlayerFlag
  set x = the result
  set y = the number of words in x
  set w = word 1 of x
  if y > 1 then
    repeat with a = 1 to y
      setat gBt, a, word a of x
    end repeat
    -- set the blend of sprite 11 to 100
    mMultiOff (gControls)
    mMultiOn(gControls)
  else
    set the blend of sprite 11 to 0
    mMultiOff (gControls)
    set gBt = []
  end if
  set the castNum of sprite 10 to (the number of cast w)
  set the blend of sprite 10 to 100
end




-- jumps to movie screen and loads appropriate avi clip

on ScreenDown
  puppetSound 0
  set gPos = gTx
  -- toast the screendown button
  mSetCommand (gControls),33, EMPTY
  set the visible of sprite 33 to false
  set the castnum of sprite 33 =0
  set the type of sprite 33 = 0

  -- get rid of the video screen
  set the visible of sprite 32 to false
  set the castnum of sprite 32=0
  set the type of sprite 32= 0
  put the type of sprite 32
  puppetsprite 32, 0


  -- set up some specifics for the video screen
  set the visible of sprite 11 to false
  set the visible of sprite 31 to true
  set the blend of sprite 3 to 0
  set the visible of sprite 10 to false
  updatestage
  mSetSecondaryCards(gControls) gPlayerFlag, (gTx)
  setSpritesSml
  go marker(1)

  setcontrolbar

  -- set up practice mode button in 4 movies
  if gMode = 1 then SetModeButton
  updatestage

  -- loads a video
  set gStopFlag = 0
  loadvideo gplayerflag

  --sets sprite for screenup on

  set the type of sprite 31 = 1
  set the castnum of sprite 31 to the number of cast "ScrnUp"
  set the loch of sprite 31 = 330
  set the locv of sprite 31 = 335
  set the ink of sprite 31 = 32
  set the blend of sprite 31 = 0


  setSpritesSml
  showcard1
  updatestage
  set gAVI =EMPTY
  set the visible of sprite 10 to true
  set the blend of sprite 3  to 100


  -- change some functions on the fly
  mSetCommand(gControls),31,"ScreenUp"
  mSetCommand (gControls),32, EMPTY
  -- must eventually add screen prompt as well

  -- special function for "Proball in base running"
  if the movieName = "Sliding" then mSetCommand(gControls),30, EMPTY

  updatestage

end



--returns to SSQ main screen and puts appropriate player card in sprite 10 and 11

on  screenUp
  puppetSound 0
  -- unset the mode button in four movies
  if gmode = 1 then UnModeButton

  if the type of sprite 3 = 0 then
    nothing
  else
    set the movierate of sprite 3 to 0
  end if

  -- toast out the video screen detail button
  set the castnum of sprite 48 = 0
  set the type of sprite 48 = 0
  MsetCommand(gcontrols),48, EMPTY

  set the blend of sprite 3 to 0
  puppetsprite 3,false
  set the visible of sprite 30 to true
  set the visible of sprite 33 to true
  set the visible of sprite 32 to true
  set the visible of sprite 31 to false
  setSpritesSml
  DealTheCards(gControls)

  --  change some functions on the fly

  mSetCommand(gControls),31,EMPTY
  mSetCommand(gControls),32,"playAVI"
  mSetCommand (gControls),33, "ScreenDown"
  mSetCommand (gControls),34,EMPTY

  set crdflag1 = Empty
  set the type of sprite 31 = 0
  ToastVideoControls

  go marker(-1)


  puppetsprite 32, 1
  setSpritesSml
  showcard
  set the visible of sprite 10 to true
  set the visible of sprite 11 to true

  -- set the screendown button
  set the type of sprite 33 = 1
  set the castnum of sprite 33 to the number of cast "ScrnDn"
  set the loch of sprite 33 = 312
  set the locv of sprite 33 = 51
  set the ink of sprite 33 = 32
  set the blend of sprite 33 = 0

  updatestage
end